home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
cboot.d64
/
page.l
< prev
next >
Wrap
Text File
|
2009-01-23
|
151b
|
8 lines
9000 PROC PAGE CLOSED
9010 IF PEEK(152)=0 THEN //SCREEN
9020 PRINT CHR$(147),
9030 ELSE // PRINTER
9040 PRINT CHR$(12),
9050 ENDIF
9060 ENDPROC PAGE